[PATCH] <short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

Gbp-Pq: Name Version_2_7_2pre10

diff --git a/Makefile.am b/Makefile.am
index 181c6c27a926a351cc6588f2655ec5e9012a5d7e..99dc1668ff1c8a88738d713527102d436f4cb389 100644 (file)
--- a/Makefile.am
+++ b/Makefile.am
@@ -110,7 +110,7 @@ endif
 
 EXTRA_DIST=$(D_SRC) $(INCL_C) $(INIT_L) $(INCL_TEXI)\
           lsp cmpnew mod pcl clcs ansi-tests elisp xbin bench \
-          majvers minvers git.tag release
+          majvers minvers git.tag release bin/c23.awk
 
 # end of primaries
 
@@ -123,7 +123,7 @@ INCL_TEXI=$(addprefix info/,$(addsuffix .texi,\
 
 INCL_C=o/sgbc.c o/gmp_big.c o/gmp.c o/gmp_num_log.c o/cmac.c o/regexp.c o/unexelf.c o/unexmacosx.c o/unexnt.c \
        o/save.c o/xdrfuns.c o/fasdump.c o/usig2_aux.c o/sfaslelf.c o/sfaslmacho.c o/sfaslcoff.c gcl-tk/comm.c \
-       o/sfasli.c o/firstfile.c o/lastfile.c
+       o/sfasli.c o/firstfile.c o/lastfile.c o/pre_qfv.c
 INIT_L=unixport/sys_init.c unixport/sys.c o/boot.c unixport/cinit.lisp
 BASE_H= h/compbas2.h h/compbas.h h/compprotos.h h/cstack.h h/enum.h h/error.h h/eval.h h/fixnum.h h/frame.h \
        h/funlink.h h/globals.h h/gmp_wrappers.h h/immnum.h h/include.h h/lex.h h/linux.h h/lu.h h/make-init.h \
@@ -459,8 +459,8 @@ h/cmpincludea.h: $(filter-out gclincl.h,$(CMPINCLUDE_FILES)) | h/gclincl.h # FIX
                $(AWK) '/^# |^$$|^#pragma/ {next}{print}' > $@
 
 o/qfv.c: o/pre_qfv.c h/new_decl.h bin/c23.awk
-       chmod +x bin/c23.awk
-       $(CPP) $(AM_CPPFLAGS) -P $(CPPFLAGS) $< | bin/c23.awk >$@
+       chmod +x $(word 3,$^)
+       $(CPP) $(AM_CPPFLAGS) -P $(CPPFLAGS) $< | $(word 3,$^) >$@
 
 h/cmpinclude.h: h/mcompdefs.h h/cmpincludea.h h/cmponly_last.h
        @cat $^ >new_$(@F)

diff --git a/Makefile.in b/Makefile.in
index 2af9e354b6c1d7c437a05f1de4936fc0302c4ab9..53614b4a59ba43ace185905d46eab3d8e35be1b2 100644 (file)
--- a/Makefile.in
+++ b/Makefile.in
@@ -1017,7 +1017,7 @@ dist_noinst_DATA = $(am__append_5) $(am__append_8)
 
 EXTRA_DIST = $(D_SRC) $(INCL_C) $(INIT_L) $(INCL_TEXI)\
           lsp cmpnew mod pcl clcs ansi-tests elisp xbin bench \
-          majvers minvers git.tag release
+          majvers minvers git.tag release bin/c23.awk
 
 
 # end of primaries
@@ -1030,7 +1030,7 @@ INCL_TEXI = $(addprefix info/,$(addsuffix .texi,\
 
 INCL_C = o/sgbc.c o/gmp_big.c o/gmp.c o/gmp_num_log.c o/cmac.c o/regexp.c o/unexelf.c o/unexmacosx.c o/unexnt.c \
        o/save.c o/xdrfuns.c o/fasdump.c o/usig2_aux.c o/sfaslelf.c o/sfaslmacho.c o/sfaslcoff.c gcl-tk/comm.c \
-       o/sfasli.c o/firstfile.c o/lastfile.c
+       o/sfasli.c o/firstfile.c o/lastfile.c o/pre_qfv.c
 
 INIT_L = unixport/sys_init.c unixport/sys.c o/boot.c unixport/cinit.lisp
 BASE_H = h/compbas2.h h/compbas.h h/compprotos.h h/cstack.h h/enum.h h/error.h h/eval.h h/fixnum.h h/frame.h \
@@ -4907,8 +4907,8 @@ h/cmpincludea.h: $(filter-out gclincl.h,$(CMPINCLUDE_FILES)) | h/gclincl.h # FIX
                $(AWK) '/^# |^$$|^#pragma/ {next}{print}' > $@
 
 o/qfv.c: o/pre_qfv.c h/new_decl.h bin/c23.awk
-       chmod +x bin/c23.awk
-       $(CPP) $(AM_CPPFLAGS) -P $(CPPFLAGS) $< | bin/c23.awk >$@
+       chmod +x $(word 3,$^)
+       $(CPP) $(AM_CPPFLAGS) -P $(CPPFLAGS) $< | $(word 3,$^) >$@
 
 h/cmpinclude.h: h/mcompdefs.h h/cmpincludea.h h/cmponly_last.h
        @cat $^ >new_$(@F)

diff --git a/cmpnew/gcl_cmpcall.lsp b/cmpnew/gcl_cmpcall.lsp
index 7ccd2d0196e0831861c5c907206f99d234dec21a..9368c3599ddcab0d485808452bc9d380b7cfc42b 100644 (file)
--- a/cmpnew/gcl_cmpcall.lsp
+++ b/cmpnew/gcl_cmpcall.lsp
@@ -301,8 +301,11 @@
       (unless (= nreq nsup) (list "_n==" (- (1+ nreq)) (unless st "&&")))
       (unless st "_l==Cnil") ")"))
 
-(defun mod-argstr (n call st nsup)
-  (let* ((x (commasep (append (nobs nsup "#") (nobs (- n nsup)) (when st (list "_l")))))
+(defun nobs-wrap (nobs sig &aux (at (car sig)))
+  (mapcar (lambda (x y) (ms  (cdr (assoc y +to-c-var-alist+)) "(" x ")")) nobs at))
+
+(defun mod-argstr (n call st nsup sig)
+  (let* ((x (commasep (append (nobs nsup "#") (nobs-wrap (nobs (- n nsup)) sig) (when st (list "_l")))))
         (s (or (position #\# call) (length call))))
     (ms (subseq call 0 s) x)))
 
@@ -349,7 +352,7 @@
       (let ((nl (list (string #\Newline) "        ")))
        (ms (list "@" (nords (1+ nsup)) ";") 
            "({" (bind-str nreq nsup nl) nl (cond-str nreq nsup st)  " ? " nl
-           (nvfun-wrap cname (mod-argstr nreq argstr st nsup) sig clp ap) " : " nl
+           (nvfun-wrap cname (mod-argstr nreq argstr st nsup sig) sig clp ap) " : " nl
            (insufficient-arg-str fnstr nreq nsup sig st) ";})")))))
 
 
@@ -490,14 +493,16 @@
 
 
 (defun stub (num name args type clp
-            &aux (va (eq '* (car (last args)))) (n (if va 1 0))(i (max n (- (length args) n)));FIXME
+            &aux (va (eq '* (car (last args)))) (n (if va 1 0))
+              (i (max n (- (length args) n)));FIXME
+              (si (write-to-string i))
               (d (declaration-type (rep-type (if (link-arg-p type) type t)))))
   (concatenate
    'string
    (stub-decl (concatenate 'string "LnkT" num) args d t)
    "{
-      int nargs=" (if va "fcall.argd<0 ? -fcall.argd : fcall.argd" (write-to-string i)) ";
-      object *FOO=alloca(nargs*sizeof(*FOO));
+      int nargs=" (if va "fcall.argd<0 ? -fcall.argd : fcall.argd" si) ";
+      object *FOO=alloca((nargs>" si "? nargs : " si ")*sizeof(*FOO));
       "
 
    (let ((j 0))
@@ -512,9 +517,9 @@
       "
       {
           va_list ap;
-          va_start(ap,x" (write-to-string i) ");
+          va_start(ap,x" si ");
           int i;
-          for (i=" (write-to-string i) ";i<nargs;i++) FOO[i]=va_arg(ap,object);
+          for (i=" si ";i<nargs;i++) FOO[i]=va_arg(ap,object);
           va_end(ap);
       }"))
 

diff --git a/git.tag b/git.tag
index 9057a1745b69f5357540358f9643ddd9808d898f..f2aaaab655e9b8d7c22888a81f115026c2bbdef7 100644 (file)
--- a/git.tag
+++ b/git.tag
@@ -1,2 +1,2 @@
-"Version_2_7_2pre9"
+"Version_2_7_2pre10"
 

diff --git a/h/protoize.h b/h/protoize.h
index 8687b6eed6c09478a20ebb7b026ed17c191a34a4..d4e919e70a9978edf0e402883be18ba254340ceb 100644 (file)
--- a/h/protoize.h
+++ b/h/protoize.h
@@ -375,7 +375,7 @@ object funcall_vec(object,fixnum,object *);
 #ifdef __MINGW32__
 /* usig2.c:167:OF */ extern void main_signal_handler (int signo); /* (signo) int signo */
 #else
-/* /\* usig2.c:167:OF *\/ extern void main_signal_handler (int signo, siginfo_t *a, void *b); /\* (signo, a, b) int signo; int a; int b; *\/ */
+/* usig2.c:167:OF */ void main_signal_handler(int,long,void *,char *) __attribute__((aligned (16)));
 #endif
 /* usig2.c:375:OF */ extern void raise_pending_signals (int cond); /* (cond) int cond; */
 /* utils.c:12:OF */ extern object IisSymbol (object f); /* (f) object f; */

diff --git a/h/sparc-linux.h b/h/sparc-linux.h
index 17bf06059604dce8f38582bdaff8fae7060db11f..ad33a3bd7fd1bdca5cf14a72c7c00ece3550f379 100755 (executable)
--- a/h/sparc-linux.h
+++ b/h/sparc-linux.h
@@ -12,7 +12,6 @@
 #else
 #define RELOC_H "elf64_sparc_reloc.h"
 #define SPECIAL_RELOC_H "elf64_sparc_reloc_special.h"
-void unwind() __attribute__((optimize("O0")));/*FIXME*/
 #endif
 
 /* #if SIZEOF_LONG == 8 */

diff --git a/lsp/gcl_directory.lsp b/lsp/gcl_directory.lsp
index 8974097273c17c8a2f029a732a9fcff369c006cd..7e5bb9450019278c0a9b2d80ee7fe447ec55efa7 100644 (file)
--- a/lsp/gcl_directory.lsp
+++ b/lsp/gcl_directory.lsp
@@ -57,7 +57,7 @@
                           (d (pathname-directory p))
                           (c (unless (eq (car d) :absolute) (make-frame (namestring *current-directory*))))
                           (lc (when c (length c)))
-                          (filesp (or (pathname-name p) (pathname-type p)))
+                          (filesp (not (and (eq (pathname-name p) :unspecific) (eq (pathname-type p) :unspecific))))
                           (v (compile-regexp (to-regexp p)))(*up-key* :back) r)
   (expand-wild-directory (pathname-device p) d
    (lambda (dir exp &aux (pexp (pathname (if c (vector-push-string c exp 0 lc) exp))))

diff --git a/o/usig.c b/o/usig.c
index afdf9e156d4e4e52372c97565bd28dbc5f260fed..a96039736be12a0327015b4dc91a5fe2dbb26f3a 100644 (file)
--- a/o/usig.c
+++ b/o/usig.c
@@ -47,8 +47,6 @@ Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 extern char signals_handled[];
 
-extern handler_function_type main_signal_handler;
-
 void
 gcl_signal(int signo, void (*handler)(int,long,void *,char *))
 {